home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
halcn305.zip
/
TUTOR04.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-21
|
530b
|
24 lines
Program Tutor04;
{$N+,E+} {Required for floating point number handling}
uses
CRT,
GSOB_DBF;
var
MyFile : GSO_dBaseFld;
MFields : integer;
begin
ClrScr;
with MyFile do
begin
Init('TUTOR1');
Open;
for MFields := 1 to NumFields do
writeln(MFields:3,' ',
FieldName(MFields),' ',
FieldType(MFields),' ',
FieldLength(MFields),' ',
FieldDecimals(MFields));
Close;
end;
end.